home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD2001.psc / My Projects / HTTPServer / V2.0 / HTTPParameter.cls < prev    next >
Encoding:
Visual Basic class definition  |  1999-04-29  |  996 b   |  46 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "HTTPParameter"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = False
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  16. Option Explicit
  17.  
  18. Private mstrName As String
  19. Private mstrValue As String
  20. Friend Function Initialize(InputLine As String) As Boolean
  21.  
  22.   Dim iFind As Long
  23.   
  24.   iFind = InStr(1, InputLine, "=")
  25.   
  26.   If iFind > 0 Then
  27.     mstrName = Left(InputLine, iFind - 1)
  28.     mstrValue = Mid(InputLine, iFind + 1)
  29.     Initialize = True
  30.   End If
  31.  
  32. End Function
  33.  
  34. Public Property Get Name() As String
  35.  
  36.   Name = mstrName
  37.  
  38. End Property
  39.  
  40.  
  41. Public Property Get Value() As String
  42.  
  43.   Value = mstrValue
  44.  
  45. End Property
  46.